home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 18
/
Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
circ designer v2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
39 lines
0 sys65409:sys65412:sys65418:poke53280,9:poke53281,9
1 print"[147]":xm=20:ym=12:hr=10:vr=hr:sp=6.5:gosub20
2 poke211,16:poke214,10:sys58640
3 print"tiger-crew"
4 poke211,15:poke214,13:sys58640:print"basic power!
9 [129]i[178]5000[164]1[169][171]50:[153]""i[173]1000:[130]:[137]100
10 [153]"load"
11 xm[178]20:ym[178]12:hr[178]10:vr[178]10:sp[178]4
20 [153]"load":pi[178]3.14
22 w1[178].:w2[178]45:w3[178]90:w4[178]135:w5[178]180:w6[178]225:w7[178]270:w8[178]315
30 wa[178]w1[172]pi[173]180:wb[178]w2[172]pi[173]180:wc[178]w3[172]pi[173]180:wd[178]w4[172]pi[173]180
31 we[178]w5[172]pi[173]180:wf[178]w6[172]pi[173]180:wg[178]w7[172]pi[173]180:wh[178]w8[172]pi[173]180
40 x1[178][181](xm[170]hr[172][190](wa)[170].5):y1[178][181](ym[170]vr[172][191](wa)[170].5):[151]1024[170]y1[172]40[170]x1,160
41 x2[178][181](xm[170]hr[172][190](wb)[170].5):y2[178][181](ym[170]vr[172][191](wb)[170].5):[151]1024[170]y2[172]40[170]x2,160
42 x3[178][181](xm[170]hr[172][190](wc)[170].5):y3[178][181](ym[170]vr[172][191](wc)[170].5):[151]1024[170]y3[172]40[170]x3,160
44 x4[178][181](xm[170]hr[172][190](wd)[170].5):y4[178][181](ym[170]vr[172][191](wd)[170].5):[151]1024[170]y4[172]40[170]x4,160
45 x5[178][181](xm[170]hr[172][190](we)[170].5):y5[178][181](ym[170]vr[172][191](we)[170].5):[151]1024[170]y5[172]40[170]x5,160
46 x6[178][181](xm[170]hr[172][190](wf)[170].5):y6[178][181](ym[170]vr[172][191](wf)[170].5):[151]1024[170]y6[172]40[170]x6,160
47 x7[178][181](xm[170]hr[172][190](wg)[170].5):y7[178][181](ym[170]vr[172][191](wg)[170].5):[151]1024[170]y7[172]40[170]x7,160
48 x8[178][181](xm[170]hr[172][190](wh)[170].5):y8[178][181](ym[170]vr[172][191](wh)[170].5):[151]1024[170]y8[172]40[170]x8,160
80 w1[178]w1[170]sp:w2[178]w2[170]sp:w3[178]w3[170]sp:w4[178]w4[170]sp:w5[178]w5[170]sp:w6[178]w6[170]sp:w7[178]w7[170]sp:w8[178]w8[170]sp
81 [139]w1[179]45[167]30
90 [142]
100 [151]53280,9:[151]53281,9
102 [153]"loadkreise zeichnen in basic <<<<<<<<<<<<<<
103 print"circle painter v1.0 <<<<<<<<<<<<<<<<<<<
104 [153]"written in feb. 1995 by madrom/tc/cream
105 print"---------------------------------------
106 [153]"schnell, schneller, am schnellsten ...
110 input"mittelpunkt (x-koord.):";xm
120 input"mittelpunkt (y-koord.):";ym
130 input"horizontaler radius:";hr
140 input"vertikaler radius:";vr
150 print"speed (1=sehr langsam aber genau)
160 [153]" (8=sehr schnell aber ungenau)
170 input"speed (1-8):";sp
190 gosub20
200 print"";:sys42115